home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 3 / Your Choice Software Collection 3.iso / os2 / grfcdemo / demo.@ / HDR2.POS < prev    next >
Encoding:
Text File  |  1993-08-07  |  1.5 KB  |  69 lines
  1. %%Title: GraphiC PostScript file
  2. %%Creator: Scientific Endeavors Corp.
  3. %%Pages: 1
  4. %%DocumentProcessColors: Cyan Magenta Yellow Black
  5. %% Copyright 1988-1993 by Scientific Endeavors Corp. All rights reserved.
  6. %%EndComments
  7. %%BeginProlog
  8. /downdict 4 dict def
  9. /sdown
  10.  {downdict begin
  11.   /thestring exch def
  12.   /lineskip exch def
  13.   thestring
  14.    {
  15.     /charcode exch def
  16.     /thechar ( ) dup 0 charcode put def
  17.     0 lineskip neg rmoveto
  18.     gsave
  19.      thechar stringwidth pop 2 div neg 0 rmoveto
  20.      thechar show
  21.     grestore
  22.    } forall
  23.    end
  24.   } def
  25.  
  26. /updict 4 dict def
  27. /sup
  28.  {updict begin
  29.   /thestring exch def
  30.   /lineskip exch def
  31.   thestring 
  32.    {
  33.     /charcode exch def
  34.     /thechar ( ) dup 0 charcode put def
  35.     0 lineskip rmoveto
  36.     gsave
  37.      thechar stringwidth pop 2 div neg 0 rmoveto
  38.      thechar show
  39.     grestore
  40.    } forall
  41.    end
  42.   } def
  43.  
  44. /leftdict 4 dict def
  45. /sleft
  46.  {leftdict begin
  47.   /thestring exch def
  48.   thestring
  49.    {
  50.     /charcode exch def
  51.     /thechar ( ) dup 0 charcode put def
  52.     gsave
  53.      thechar stringwidth pop neg 0 rmoveto
  54.      thechar show
  55.     grestore
  56.    } forall
  57. % need another left shift after the string is printed
  58.    thechar stringwidth pop neg 0 rmoveto
  59.    end
  60.   } def
  61.  
  62. /path{newpath moveto{lineto}repeat} bind def 
  63. /cnp{newpath moveto{lineto}repeat closepath} bind def
  64. /clp{moveto{lineto}repeat closepath} bind def
  65. /rps{ 3 1 roll path stroke} bind def
  66. /rcs{ 3 1 roll clp stroke} bind def
  67. /setF { currentscreen 4 -2 roll pop 3 1 roll setscreen} bind def
  68. %%EndProlog
  69.